home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / Pov / POVTOOLS / SCENES / LEVEL1 / SUNSET.POV < prev    next >
Encoding:
Text File  |  1995-11-25  |  1.7 KB  |  72 lines
  1. // Persistence Of Vision raytracer version 2.0 sample file.
  2.  
  3. // By David Buck
  4.  
  5. #include "colors.inc"
  6.  
  7. camera {
  8.    location  <0, 10, 200>
  9.    direction <0,  0,  -1>
  10.    up        <0,  1,   0>
  11.    right   <4/3,  0,   0>
  12.    look_at   <0,130,-300>
  13. }
  14.  
  15. /* Define the ocean surface */
  16. plane { y, -10
  17.    pigment {colour red 1 green 0.3}
  18.    normal {
  19.       waves 0.05
  20.       frequency 5000
  21.       scale 3000
  22.    }
  23.    finish {reflection 1}
  24. }
  25.  
  26. /* Put a floor underneath to catch any errant waves from the ripples */
  27. plane { y, -11
  28.    pigment {colour red 1 green 0.3}
  29.    finish {crand 0.05 ambient 1 diffuse 0}
  30. }
  31.  
  32. /* Now draw the sky */
  33. sphere { <0, 0, 0>, 300
  34.    pigment {
  35.       gradient <0, 1, 0>
  36.       colour_map {
  37.          [0, 0.8  colour red 1   green 0.3 blue 0
  38.                   colour red 0.7 green 0.7 blue 1]
  39.          [0.8, 1  colour red 0.7 green 0.7 blue 1
  40.                   colour red 0.7 green 0.7 blue 1]
  41.       }
  42.       scale <300,  300,  300.0>
  43.       quick_colour red 0.7  green 0.7 blue 1.0
  44.    }
  45.    finish {
  46.       ambient 0.7 
  47.       diffuse 0   /* we don't want clouds casting shadows on the sky */
  48.    }
  49. }
  50.  
  51. /* Put in a few clouds */
  52. sphere { <0, 0, 0>, 259
  53.    pigment {
  54.       bozo
  55.       turbulence 0.5
  56.       colour_map {
  57.          [0,   0.6   colour Clear
  58.                      colour Clear]
  59.          [0.6, 0.8   colour Clear
  60.                      colour White]
  61.          [0.8, 1.001 colour White
  62.                      colour red 0.8 green 0.8 blue 0.8]
  63.       }
  64.       quick_colour red 0.7 green 0.7 blue 1
  65.       scale <100, 20, 100>
  66.    }
  67.    finish {ambient 0.7 diffuse 0}
  68. }
  69.  
  70. /* Now to cast some light on the subject */
  71. light_source {<0, 0, -300> colour White rotate <10, 0, 0>}
  72.